home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0391B.ZIP / NEARMISS.ARC / NEARMISS.PAS < prev   
Pascal/Delphi Source File  |  1986-06-23  |  166b  |  10 lines
  1. Program TestNearMiss;
  2. type
  3. AnyStr = String[30];
  4. VAR
  5. TestString : AnyStr;
  6. {$I NearMiss.Inc}
  7. BEGIN
  8. Readln(TestString);
  9. Writeln(NearMiss(TestString):4:0);
  10. End.